home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / prog / dnalib59.arj / BSCROLL.BAS < prev    next >
BASIC Source File  |  1994-02-06  |  546b  |  12 lines
  1. SUB BiosScroll(TopRow%,LeftColumn%,BottomRow%,RightColumn%,NumberOfRows%,Direction%,Attr%)PUBLIC
  2.  
  3. IF Direction% THEN UpDown% = 7 ELSE UpDown% = 6
  4.  
  5.   REG 1, NumberOfRows% + 256 * UpDown%               ' Set AX = # of rows
  6.   REG 2, Attr% * 256                                 ' Set BX = Color to use
  7.   REG 3, (LeftColumn% - 1) + 256 * (TopRow% - 1)     ' Set CX = left and top
  8.   REG 4, (RightColumn% - 1) + 256 * (BottomRow% - 1) ' Set DX = right and bot
  9.   CALL INTERRUPT &H10                                ' Call BIOS service
  10.  
  11. END SUB
  12.